home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / vegx20.zip / VGXVIEW.BAS < prev   
BASIC Source File  |  1990-11-15  |  1KB  |  53 lines
  1. ' VGXVIEW.BAS
  2.  
  3. ' This program simply uses the FILES command to list the VGX files,
  4. ' inputs the filename and the flag option to load, and loads the VGX file.
  5.  
  6. ' You must load QB with the appropriate VEGX quicklibrary for your
  7. ' version of QB.
  8.  
  9. ' to do so type "QB /Lvegxlibraryname" at the DOS prompt.
  10. ' "vegxlibraryname" is VEGX40.QLB for QB 4.0 or BASIC 6.0;
  11. '                      VEGX45.QLB for QB 4.5, and
  12. '                      VEGX70f.QLB for BASIC 7.0
  13.  
  14.  
  15. DEFINT A-Z
  16. DECLARE SUB VGXLoad (fil$, palflag)
  17.  
  18. SCREEN 12
  19. CLS
  20.  
  21. top:
  22.  
  23. LOCATE 1, 1
  24. COLOR 12
  25. FILES "*.vgx"
  26. PRINT STRING$(80, 205)
  27. COLOR 15
  28. INPUT "Enter filename, NO extension... ", fil$
  29.  
  30. IF fil$ = "" THEN
  31.    PALETTE: SCREEN 0: CLS
  32.    END
  33. END IF
  34.  
  35. COLOR 6
  36. PRINT "PALFLAG  OUT             IN"
  37. PRINT "  0      no blank        bank load"
  38. PRINT "  1      blank to 0      instant on"
  39. PRINT "  2      blank to 0      fade in"
  40. PRINT "  3      fade out        instant on"
  41. PRINT "  4      fade out        fade in"
  42.  
  43. COLOR 14
  44.  
  45. INPUT "Enter PaletteFlag number (0, 1, 2, 3 or 4)... ", palflag
  46.  
  47. CALL VGXLoad(fil$, palflag)
  48.  
  49. DO: LOOP WHILE INKEY$ = ""
  50.  
  51. GOTO top
  52.  
  53.